perm filename TIMER[SYS,BGB] blob
sn#001332 filedate 1972-05-26 generic text, type T, neo UTF8
00100 INTEGER TIME1,TIME2;
00200
00300 DEFINE INTIME="
00400 TIME1 ← CALL(0,""RUNTIM"");
00500 TIME2 ← CALL(0,""MSTIME"")";
00600
00700 DEFINE OUTIME="
00800 TIME1 ← CALL(0,""RUNTIM"") - TIME1;
00900 TIME2 ← CALL(0,""MSTIME"") - TIME2;
01000 SETFORMAT(7,3);
01100 OUTSTR(9&""RUN TIME ""&CVS(TIME1%60000)&"":"");
01200 SETFORMAT(-2,3);
01300 OUTSTR(CVF((TIME1 MOD 60000)/1000)&13&10);
01400 SETFORMAT(7,3);
01500 OUTSTR(9&""REAL TIME ""&CVS(TIME2%60000)&"":"");
01600 SETFORMAT(-2,3);
01700 OUTSTR(CVF((TIME2 MOD 60000)/1000)&13&10);
01800 SETFORMAT(0,7);
01900 OUTSTR(9&""TIME SHARE""&9&CVS(100*TIME1/TIME2)&"" %""&13&10);
02000 OUTSTR(13&10)";